2 IFA=0THENA=1:LOAD"SS",8,1
3 POKE52,56:POKE51,0:CLR
4 PRINT"[147][159]":POKE53280,.:POKE53281,.:PRINTCHR$(142),CHR$(8):GOSUB60000
20 PRINT"[147]" :PRINT"[144]"
30 PRINT"LOAD"CHR$(34)"DOUBLE OR QUITS"CHR$(34)",8"
40 PRINT"RUN"
90 POKE631,13:POKE632,13:POKE633,13:POKE198,3:END
10000 OPEN15,8,15,"S0:DOUBLE BOOT":CLOSE15:SAVE"DOUBLE BOOT":END
60000 B9$="                                      "
60010 POKE214,14:PRINT:  PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
60020 FORI=0TO7:PRINTB9$:NEXT:PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 B9$(0)="DOUBLE OR QUITS "
60040 B9$(1)="BY MAURICE JONES
60050 B9$(2)[178]"(C) 1990 BY SOFTDISK, INC."
60060 B9$(3)[178]"PUBLISHED ON LOADSTAR #78"
60070 B9$(4)[178]"SUBSCRIPTIONS 1-800-831-2694"
60080 B9$(5)[178]"ALL RIGHTS RESERVED"
60090 [151]214,16:[153]:[129]I[178]0[164]5:[153][163]20[171]([195](B9$(I))[173]2))""B9$(I):[130]
60095 [158]57812"F&M CARD FONT",8,0:[151]780,0:[151]781,0:[151]782,56:[158]65493
60097 [142]